home *** CD-ROM | disk | FTP | other *** search
Text File | 1988-10-31 | 1.5 KB | 43 lines | [TEXT/TPAS] |
- Hello.
-
- Included is a Turbo Pascal unit which supports your basic macintosh paint
- tools. These are not meant to be used in sophisticated applications whose
- main purpose is graphics, but for applications that you might want to spice
- up a bit with the ability of graphics without having to do the work.
-
- All information, such as, pen size and pen pattern, is passed via the current
- grafport.
-
- The main procedure that you call is...
-
- DoPaintTools (which : Integer; where : Point; modifiers : Integer);
-
- which - which tool you want to use.
- where - where the mouse was click in local coordinates of the current
- grafport.
- modifiers - the modifiers field of the current event.
-
- You can see how this is used in the example program.
-
- The current version of Paint Tools is 1.0.0.
-
- Paint Tools uses memory for most of its tools so make sure at least 100K is
- free. If PTError does not return noErr, and if it does not return either
- TUnknown or TUnImp, then it is returning a memory manager error.
-
- Don't forget to call InitPaintTools after initializing all the other
- macintosh managers.
-
- The only modifier key now used is the command-key. Using it while drawing
- will frame a rectangle in the current pattern, for example.
-
- If you do use Paint Tools in an application that is not for your own private
- use please include in your about box the following in a 9 point font of your
- choice.
-
- "Portions of the graphics code, ©1988 Kevin Parichan"
-
- Thank you.
-
- Kevin Paricha - KPARICHAN
-